home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcc / v04n09 / logout.prg < prev    next >
Text File  |  1991-08-09  |  492b  |  18 lines
  1. SET TALK OFF
  2. USE Log
  3. GO BOTTOM
  4. REPLACE time_out WITH time()
  5. STORE VAL(LEFT(time_in,2))*60+VAL(SUBST(time_in,4,2)) TO start
  6. STORE VAL(LEFT(time_out,2))*60+VAL(SUBST(time_out,4,2)) TO end
  7.         IF start>end
  8.                 STORE end+24*60 TO end
  9.         ENDIF
  10. REPLACE minutes WITH end-start
  11. ? "Log out complete."
  12. ACCEPT "Log in for a new project (Y/N)? " TO ans
  13.         IF ans<>"N".AND.ans<>"n"
  14.                 DO Login
  15.         ENDIF
  16. * Now leave dBASE to the DOS prompt
  17. QUIT
  18.